home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
EDITORS
/
MEMACS
/
Cmd
/
Newpage
< prev
next >
Wrap
Text File
|
1990-07-09
|
2KB
|
97 lines
; NEWPAGE.CMD: Startup page Loader
; for MicroEMACS 3.9d and above
; (C)opyright 1987 by Daniel M Lawrence
; Get rid of the last page
set $discmd FALSE
write-message [Cleaning]
run clean
!force delete-buffer "[clean]"
; make sure the function key window is up
set %rcfkeys FALSE
execute-macro-1
!if ¬ $pending
; Write out the page load instructions
save-window
1 next-window
beginning-of-file
set $curcol 25
overwrite-string " Available Pages to Load: "
next-line
set $curcol 25
overwrite-string " [W] WORDprocessing [P] Pascal "
next-line
set $curcol 25
overwrite-string " [E] EMACS macroes [C] C "
next-line
set $curcol 18
overwrite-string " "
set $curcol 25
overwrite-string " [B] BOX/block editing [O] Cobol "
next-line
set $curcol 25
overwrite-string "[space] to load a user page "
unmark-buffer
beginning-of-file
!force restore-window
update-screen
; prompt for the page
write-message "Page to load: "
!endif
*prompt
set %rctmp >key
clear-message-line
; check for an abort
!if &seq %rctmp ""
write-message "[Aborted]"
save-window
1 next-window
beginning-of-file
set $curcol 25
overwrite-string " MicroEMACS: Text Editor "
next-line
set $curcol 25
overwrite-string " "
next-line
set $curcol 25
overwrite-string " Available function key Pages include: "
next-line
set $curcol 25
overwrite-string " WORD BOX EMACS PASCAL C "
next-line
set $curcol 25
overwrite-string " [use the f8 key to load Pages] "
unmark-buffer
beginning-of-file
!force restore-window
set $discmd TRUE
!return
!endif
; if it is an unlisted page, get it's name
!if &seq %rctmp " "
set %rcfile @"Name of Page to load: "
!else
set %rcfile &cat %rctmp "page"
!endif
; see if this is a legit file
!if &seq &find %rcfile ""
write-message "%No Such Page, Page to load: "
!goto prompt
!endif
;and lastly, execute it
execute-file %rcfile
set $discmd TRUE